home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / SecalDemo / Inc / libcalls / lowlevel.inc < prev    next >
Encoding:
Text File  |  1997-06-11  |  3.1 KB  |  152 lines
  1. pattern ReadJoyPort(_port) is
  2.     push a6;
  3.     d0.l:=_port;
  4.     a6:=LowLevelBase; jsr [a6-30];
  5.     pop a6;
  6. endp;                                                            # READJOYPORT
  7.  
  8. pattern GetLanguageSelection is
  9.     push a6;
  10.     a6:=LowLevelBase; jsr [a6-36];
  11.     pop a6;
  12. endp;                                                            # GETLANGUAGESELECTION
  13.  
  14. pattern lowlevelPrivate1 is
  15.     push a6;
  16.     a6:=LowLevelBase; jsr [a6-42];
  17.     pop a6;
  18. endp;                                                            # LOWLEVELPRIVATE1
  19.  
  20. pattern GetKey is
  21.     push a6;
  22.     a6:=LowLevelBase; jsr [a6-48];
  23.     pop a6;
  24. endp;                                                            # GETKEY
  25.  
  26. pattern QueryKeys(_queryArray,_arraySize) is
  27.     push a6;
  28.     safe a0:=_queryArray; d1.l:=_arraySize;;
  29.     a6:=LowLevelBase; jsr [a6-54];
  30.     pop a6;
  31. endp;                                                            # QUERYKEYS
  32.  
  33. pattern AddKBInt(_intRoutine,_intData) is
  34.     push a6;
  35.     safe a0:=_intRoutine; a1:=_intData;;
  36.     a6:=LowLevelBase; jsr [a6-60];
  37.     pop a6;
  38. endp;                                                            # ADDKBINT
  39.  
  40. pattern RemKBInt(_intHandle) is
  41.     push a6;
  42.     a1:=_intHandle;
  43.     a6:=LowLevelBase; jsr [a6-66];
  44.     pop a6;
  45. endp;                                                            # REMKBINT
  46.  
  47. pattern SystemControlA(_tagList) is
  48.     push a6;
  49.     a1:=_tagList;
  50.     a6:=LowLevelBase; jsr [a6-72];
  51.     pop a6;
  52. endp;                                                            # SYSTEMCONTROLA
  53.  
  54. pattern AddTimerInt(_intRoutine,_intData) is
  55.     push a6;
  56.     safe a0:=_intRoutine; a1:=_intData;;
  57.     a6:=LowLevelBase; jsr [a6-78];
  58.     pop a6;
  59. endp;                                                            # ADDTIMERINT
  60.  
  61. pattern RemTimerInt(_intHandle) is
  62.     push a6;
  63.     a1:=_intHandle;
  64.     a6:=LowLevelBase; jsr [a6-84];
  65.     pop a6;
  66. endp;                                                            # REMTIMERINT
  67.  
  68. pattern StopTimerInt(_intHandle) is
  69.     push a6;
  70.     a1:=_intHandle;
  71.     a6:=LowLevelBase; jsr [a6-90];
  72.     pop a6;
  73. endp;                                                            # STOPTIMERINT
  74.  
  75. pattern StartTimerInt(_intHandle,_timeInterval,_continuous) is
  76.     push a6;
  77.     safe a1:=_intHandle; d0.l:=_timeInterval; d1.l:=_continuous;;
  78.     a6:=LowLevelBase; jsr [a6-96];
  79.     pop a6;
  80. endp;                                                            # STARTTIMERINT
  81.  
  82. pattern ElapsedTime(_context) is
  83.     push a6;
  84.     a0:=_context;
  85.     a6:=LowLevelBase; jsr [a6-102];
  86.     pop a6;
  87. endp;                                                            # ELAPSEDTIME
  88.  
  89. pattern AddVBlankInt(_intRoutine,_intData) is
  90.     push a6;
  91.     safe a0:=_intRoutine; a1:=_intData;;
  92.     a6:=LowLevelBase; jsr [a6-108];
  93.     pop a6;
  94. endp;                                                            # ADDVBLANKINT
  95.  
  96. pattern RemVBlankInt(_intHandle) is
  97.     push a6;
  98.     a1:=_intHandle;
  99.     a6:=LowLevelBase; jsr [a6-114];
  100.     pop a6;
  101. endp;                                                            # REMVBLANKINT
  102.  
  103. pattern lowlevelPrivate2 is
  104.     push a6;
  105.     a6:=LowLevelBase; jsr [a6-120];
  106.     pop a6;
  107. endp;                                                            # LOWLEVELPRIVATE2
  108.  
  109. pattern lowlevelPrivate3 is
  110.     push a6;
  111.     a6:=LowLevelBase; jsr [a6-126];
  112.     pop a6;
  113. endp;                                                            # LOWLEVELPRIVATE3
  114.  
  115. pattern SetJoyPortAttrsA(_portNumber,_tagList) is
  116.     push a6;
  117.     safe d0.l:=_portNumber; a1:=_tagList;;
  118.     a6:=LowLevelBase; jsr [a6-132];
  119.     pop a6;
  120. endp;                                                            # SETJOYPORTATTRSA
  121.  
  122. pattern lowlevelPrivate4 is
  123.     push a6;
  124.     a6:=LowLevelBase; jsr [a6-138];
  125.     pop a6;
  126. endp;                                                            # LOWLEVELPRIVATE4
  127.  
  128. pattern lowlevelPrivate5 is
  129.     push a6;
  130.     a6:=LowLevelBase; jsr [a6-144];
  131.     pop a6;
  132. endp;                                                            # LOWLEVELPRIVATE5
  133.  
  134. pattern lowlevelPrivate6 is
  135.     push a6;
  136.     a6:=LowLevelBase; jsr [a6-150];
  137.     pop a6;
  138. endp;                                                            # LOWLEVELPRIVATE6
  139.  
  140. pattern lowlevelPrivate7 is
  141.     push a6;
  142.     a6:=LowLevelBase; jsr [a6-156];
  143.     pop a6;
  144. endp;                                                            # LOWLEVELPRIVATE7
  145.  
  146. pattern lowlevelPrivate8 is
  147.     push a6;
  148.     a6:=LowLevelBase; jsr [a6-162];
  149.     pop a6;
  150. endp;                                                            # LOWLEVELPRIVATE8
  151.  
  152.